﻿Imports Ocean.OceanFramework.MVVM

Class Application

    Private Sub Application_Startup(ByVal sender As Object, ByVal e As System.Windows.StartupEventArgs) Handles Me.Startup

        Dim objView As New ApplicationMainWindow
        Dim objViewModel As New ApplicationMainWindowViewModel
        AddHandler objViewModel.RequestClose, AddressOf objView.RequestClose
        objView.DataContext = objViewModel
        objView.Show()
    End Sub

End Class
